home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / Dev / Obrn-A_1.6_lib.lha / oberon-a / source3.lha / source / 3rdParty / ARPUtil.mod < prev    next >
Text File  |  1995-06-29  |  1KB  |  51 lines
  1. (*************************************************************************
  2.  
  3.      $RCSfile: ARPUtil.mod $
  4.   Description: Support for clients of arp.library
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 2.10 $
  8.       $Author: fjc $
  9.         $Date: 1995/06/04 23:11:42 $
  10.  
  11.   Copyright © 1994-1995, Frank Copeland.
  12.   This file is part of the Oberon-A Library.
  13.   See Oberon-A.doc for conditions of use and distribution.
  14.  
  15. *************************************************************************)
  16.  
  17. <* STANDARD- *>
  18.  
  19. MODULE ARPUtil;
  20.  
  21. IMPORT SYS := SYSTEM, i := Intuition, ARP;
  22.  
  23. (*------------------------------------*)
  24. (*
  25.   Simple wrapper for calling the ARP FileRequester.
  26. *)
  27.  
  28. PROCEDURE RequestFile * (
  29.   window        : i.WindowPtr;
  30.   hail          : ARRAY OF CHAR;
  31.   VAR file      : ARRAY OF CHAR;
  32.   VAR directory : ARRAY OF CHAR )
  33. : BOOLEAN;
  34.  
  35.   VAR fr : ARP.FileRequester;
  36.  
  37. <*$CopyArrays-*>
  38. BEGIN (* RequestFile *)
  39.   fr.hail      := SYS.ADR(hail);
  40.   fr.file      := SYS.ADR(file);
  41.   fr.dir       := SYS.ADR(directory);
  42.   fr.window    := window;
  43.   fr.funcFlags := {ARP.newIDCMP, ARP.doColor};
  44.   fr.flags2    := {ARP.longPath};
  45.   fr.leftEdge  := 0;
  46.   fr.topEdge   := 0;
  47.   RETURN (ARP.FileRequest (fr) # NIL);
  48. END RequestFile;
  49.  
  50. END ARPUtil.
  51.